
(load "utility/common.lsp")
(load "utility/cmd_interpreter.lsp")
;(load "test.lsp")
;(load "erp.lsp")
(load "lime.lsp")

(defun add-records ()
 (format t "records add~%"))


;=================================================
;
(defun launch-command-interpreter-flow ()
 (launch-interpreter-flow
  (list
      (list '("ar" "add-records") "Add certain records" #'add-records)
      ))
 )


;=================================================
; entry point
(defun main ()

 (setf ext:package-case-sensitive-p t)

 ;(launch-command-interpreter-flow)
 ;(test)
 (test-lime)

 (exit)
 )



(main)
